home *** CD-ROM | disk | FTP | other *** search
/ 1st Multimedia Mac Shareware / Multimedia Shareware CD-ROM - BetaCorp.iso / Communication / HyperBBS / UserList / stack_-1.xml < prev   
Encoding:
Extensible Markup Language  |  1992-08-11  |  2.1 KB  |  21 lines
  1. <?xml version="1.0" encoding="utf-8" ?>
  2. <!DOCTYPE stack PUBLIC "-//Apple, Inc.//DTD stack V 2.0//EN" "" >
  3. <stack>
  4.     <name>in</name>
  5.     <id>-1</id>
  6.     <cardCount>2</cardCount>
  7.     <cardID>3049</cardID>
  8.     <listID>3280</listID>
  9.     <cantModify><false /></cantModify>
  10.     <cantDelete><false /></cantDelete>
  11.     <cantAbort><false /></cantAbort>
  12.     <cardSize>
  13.         <width>512</width>
  14.         <height>342</height>
  15.     </cardSize>
  16.     <script>on initFields
  17. end initFields
  18.  
  19. on lookForInput
  20. end lookForInput
  21.  
  22. on openStack
  23. push recent card
  24. showCount
  25. end openStack
  26.  
  27. on showCount
  28. show msg at 22,20
  29. put "UserList: " & the number of cards & " user records in stack."
  30. end showCount
  31.  
  32. on newCard
  33. showCount
  34. end newCard
  35.  
  36. -- The following command deletes all card to the end of the stack.
  37. -- You can use it to prune the UserList after sorting by last logon
  38. -- and going to the oldest user you want to keep. Use it carefully,
  39. -- tho, or you may delete your entire UserList...
  40. --
  41. on deleteToEnd
  42. repeat while the number of this card is not 1
  43. doMenu "delete card"
  44. end repeat
  45. end deleteToEnd
  46.  
  47. function nameToID userName
  48. put empty into it
  49. put it into userID
  50. if userName is not empty then
  51. get lockScreen
  52. put it into oldLock
  53. set lockScreen to true
  54. push card
  55. go to stack "UserList"
  56. find word userName in field "name"
  57. if it is not "not found" then
  58. put "x" into userID
  59. put the ID of this card into firstID
  60. repeat while field "name" is not userName
  61. go to next card
  62. find word userName in field "name"
  63. if the ID of this card is firstID then
  64. put empty into userID
  65. exit repeat
  66. end if
  67. end repeat
  68. end if
  69. if userID is not empty then put the ID of this card into userID
  70. pop card
  71. set lockScreen to oldLock
  72. end if
  73. return userID
  74. end nameToID
  75.  
  76. function getUserInfo userID,infoType
  77. get lockScreen
  78. put it into oldLock
  79. set lockScreen to true
  80. push card
  81. go to stack "UserList"
  82. do "put field " & infoType & " in " & userID & " into it"
  83. pop card
  84. set lockScreen to oldLock
  85. return it
  86. end getUserInfo
  87. </script>
  88.     <background id="2635" file="background_2635.xml" name="" />
  89.     <card id="3049" file="card_3049.xml" marked="false" name="" owner="2635" />
  90.     <card id="9988" file="card_9988.xml" marked="false" name="" owner="2635" />
  91. </stack>
  92.